home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / AUTOKLOD.MOD < prev    next >
Text File  |  1986-08-13  |  1KB  |  26 lines
  1. (*----------------------------------------------------------------------*)
  2. (*       Load_Function_Keys --- Load function key definitions           *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Load_Function_Keys( File_Name : AnyStr );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Load_Function_Keys                                   *)
  10. (*                                                                      *)
  11. (*     Purpose:    Load function keys for terminal emulations           *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Load_Function_Keys( File_Name : AnyStr );                     *)
  16. (*                                                                      *)
  17. (*           File_Name --- file with function key definitions           *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. BEGIN (* Load_Function_Keys *)
  22.  
  23.    IF MyLoadOverlay( 0 , PT4UTIL, 'PT4UTIL.CHN' ) THEN
  24.       Set_Input_Keys( File_Name );
  25.  
  26. END   (* Load_Function_Keys *);